home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 (Alt) / MACD 5.bin / workbench / wb / czesc_4 / vark15 / utils p-z / skiff2ascii.lha / iff2ascii / count.s next >
Encoding:
Text File  |  1996-08-21  |  304 b   |  19 lines
  1.         SECTION text,code
  2.         
  3.         XDEF    _count
  4.  
  5. _count
  6.         eor.b   d0,d1
  7.         clr.l   d0
  8.         tst.b   d1
  9.         bne.s   nocero
  10.         rts
  11. nocero  moveq.l #7,d2
  12. otro    btst    d2,d1
  13.         beq.s   mas
  14.         addq.l  #1,d0
  15. mas     dbf     d2,otro
  16.         rts
  17.  
  18.         END
  19.